Voorbeeld van de functie Year

Dit voorbeeld maakt gebruik van de functie Year om het jaar voor een opgegeven datum te verkrijgen. In de ontwikkelomgeving wordt de letterlijke datumwaarde met behulp van de lokale instellingen van uw programmacode in korte datumnotatie weergegeven.

Dim MyDate, MyYear
MyDate = #12 februari 1969#    ' Een datum toewijzen.
MyYear = Year(MyDate)    ' MyYear bevat 1969.